Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

0A~Z
ClrText
CoordOff
ViewWindow 1,127,0,1,63,0
" BILLARD"
" "
"1-SUITE"
"2-DEBUT"?Z
Z=1Mat E[1,7
Z=2[[0,0,0,0,0,0,0Mat E
Lbl 0
Cls
Plot 19,7
Plot X,56
Green Line
Plot 111,Y
Green Line
Plot X,7
Green Line
Plot 19,Y
Green Line
Plot 23,Y
Plot 26,10
Orange Line
Plot 62,Y
Orange Line
Plot X,8
Orange Line
Plot 67,Y
Orange Line
Plot X,10
Orange Line
Plot 104,Y
Orange Line
Plot 107,7
Orange Line
Plot 111,11
Plot 108,14
Orange Line
Plot X,49
Orange Line
Plot 111,52
Orange Line
Plot 107,56
Plot 104,53
Orange Line
Plot 67,Y
Orange Line
Plot X,55
Orange Line
Plot 62,Y
Orange Line
Plot X,53
Orange Line
Plot 26,Y
Orange Line
Plot 23,56
Orange Line
Plot 19,52
Plot 22,49
Orange Line
Plot X,14
Orange Line
Plot 19,11
Orange Line
0C
Mat E[1,7]=Goto 3
Mat E[1,7
Lbl 1
For 1Z To 6
Int 3154Ran#+83Mat E[1,Z
Next
Lbl 3
For 1C To 6
If Mat E[1,C]0
Then Int ((Mat E[1,C]+82)83+11B
Mat E[1,C]+106-83(B-11A
C1PlotOn A,B
Plot A-1,B-1
Plot X,Y+2
Line
Plot X+2,Y
Line
Plot X,Y-2
Line
Plot X-2,Y
Line
IfEnd
Next
Lbl 4
1Z
Int ((Mat E[1,1]+82)83+11B
Mat E[1,1]+106-83(B-11A
Plot A,B
A=XB=YGoto 4
Pol(X-A,Y-B)List 1
ListMat(1)
Mat Ans[1,1I
Mat Ans[2,1J
Int (I^1.6I
XA(Y-B)(X-AD
X>A-DD
-1C
X<A1C
AE
BF
J<0J+360J
If J45 And J135 Or J225 And J315
Then D
CD
XA1AnsC
If X=A
Then 1D
0C
Y>B-1D
IfEnd
If X<A And Y>B Or X>A And Y<B
Then -CC
-DD
IfEnd
IfEnd
Lbl 5
K-1K
F+DF
E+CE
PlotOn E,F
X22 Or Y>53 Or X108 Or Y<8Goto 8
X106 And Y14 And Y49 Or X24 And Y14 And Y49-CC
Y51 And X26 And X62 Or Y51 And X67 And X104 Or Y12 And X26 And X62 Or Y12 And X67 And X104-DD
83(Int Y-12)+Int X-23H
For 1G To 6
Int ((Mat E[1,G]+82)83+11N
Mat E[1,G]+106-83(N-11M
XM-1XM+1YN-1YN+1GZGoto 7
Next
Lbl 9
Dsz I
Goto 5
83(Int Y-12)+Int X-23Mat E[1,Z
Goto 0
Lbl 7
K>0Goto 5
2K
HMat E[1,Z
GZ
Int ((Mat E[1,Z]+82)83F
Mat E[1,Z]+106-83FE
F+11F
Goto 5
Lbl 8
ClrText
" BOULE N"
Locate 11,1,Z
Locate 13,1,"RENTREE"
0Mat E[1,Z
If Mat E[1,1]=0
Then Locate 1,3,"VOUS AVEZ PERDU"
0Mat E[1,7
IfEnd
0
For 2L To 6
Ans+Mat E[1,L
Next
If Ans=0
Then ClrText
"LA PARTIE EST FINIE"
Next
0Mat E[1,7
Stop
IfEnd
Goto 0